; Add sharp-quotes to function names
authorJeremy Bryant <jb@jeremybryant.net>
Sat, 24 Feb 2024 11:58:49 +0000 (11:58 +0000)
committerJustin Burkett <justin@burkett.cc>
Tue, 27 Feb 2024 20:08:54 +0000 (15:08 -0500)
Replace quoted list by (list ...) where each
element is sharp-quoted so that the byte-compiler can check if the
functions exist.

* which-key.el (which-key--paging-functions):  Add sharp-quotes to
function names.

which-key.el

index a9087e2afc946cd66615ff3bd9f313bdfd32df01..600f02f3f8941d03ba107799e2b72b4df89af1b6 100644 (file)
@@ -525,15 +525,16 @@ This string is fed into `substitute-command-keys'")
     map)
   "Keymap for C-h commands.")
 
-(defvar which-key--paging-functions '(which-key-C-h-dispatch
-                                      which-key-manual-update
-                                      which-key-turn-page
-                                      which-key-show-next-page-cycle
-                                      which-key-show-next-page-no-cycle
-                                      which-key-show-previous-page-cycle
-                                      which-key-show-previous-page-no-cycle
-                                      which-key-undo-key
-                                      which-key-undo))
+(defvar which-key--paging-functions
+  (list #'which-key-C-h-dispatch
+       #'which-key-manual-update
+       #'which-key-turn-page
+       #'which-key-show-next-page-cycle
+       #'which-key-show-next-page-no-cycle
+       #'which-key-show-previous-page-cycle
+       #'which-key-show-previous-page-no-cycle
+       #'which-key-undo-key
+       #'which-key-undo))
 
 (defvar which-key-persistent-popup nil
   "Whether or not to disable `which-key--hide-popup'.")